home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / memory / emsaw41s.zip / TEST1CO.COB < prev    next >
Text File  |  1994-06-26  |  2KB  |  43 lines
  1.       * Example of the program in COBOL:
  2.       * The source code might be adjusted according to the compiler type.
  3.       * Compiler settings: depend on the compiler.
  4.       * The Pascal calling convention is assumed.
  5.       * Use segemsp.obj for linking.
  6.       * (See note 5)
  7.       *
  8.        IDENTIFICATION DIVISION.
  9.        PROGRAM-ID. TEST.
  10.        ENVIRONMENT DIVISION.
  11.        DATA DIVISION.
  12.        WORKING-STORAGE SECTION.
  13.        77 TOTSIZ PIC S9(5) COMP-0.
  14.        77 AVSIZ PIC S9(5) COMP-0.
  15.        77 A PIC S9(5) COMP-0.
  16.        77 IND PIC S9(5) COMP-0.
  17.        77 BITNU PIC S9(5) COMP-0.
  18.        77 LENGTH PIC S9(5) COMP-0.
  19.        77 VAL1 PIC S9(5) COMP-0.
  20.        77 VAL2 PIC S9(5) COMP-0.
  21.        PROCEDURE DIVISION.
  22.        SECTION-1 SECTION 1.
  23.        PARA-1.
  24.            CALL 'EMINIT'
  25.            CALL 'SIZEAR' USING TOTSIZ  AVSIZ
  26.            DISPLAY (1, 5) TOTSIZ AVSIZ.
  27.            CALL 'NEWAR' USING A  AVSIZ
  28.            MOVE AVSIZ TO IND.
  29.            MOVE 99999999 TO VAL1.
  30.            CALL 'SETINT' USING A, IND, VAL1
  31.            CALL 'GETINTCO' USING A, IND, VAL2
  32.            DISPLAY (2, 5) VAL1 VAL2.
  33.            MOVE AVSIZ TO IND.
  34.            SUBTRACT 2 FROM IND.
  35.            MOVE 7 TO BITNU.
  36.            MOVE 30 TO LENGTH.
  37.            CALL 'SETF' USING A, IND, BITNU, LENGTH, VAL1
  38.            CALL 'GETFCO' USING A, IND, BITNU, LENGTH, VAL2
  39.            DISPLAY (3, 5) VAL1 VAL2.
  40.            CALL  'FREEAR' USING A.
  41.            DISPLAY (4, 5) TOTSIZ AVSIZ.
  42.            STOP RUN.
  43.